Code (Perl)

    if ($save_moved) { save_moved_file(); } 

Code (Perl)

## New forum.totals rebuild ##
    my @newtots = ();
    my @myline1 = ();
    while( ($key, $value) = each %board ) {
        $ftotals = 0;
        fopen ( TOTALS, "<$boardsdir/$key.txt" );
        my @ftotals = <TOTALS>;
        fclose(TOTALS);
        chomp @ftotals;
        $ftotals = @ftotals;
        if ( !$ftotals ) {
            $msgtot = 0;
            $myline1[4] = 'N/A';
            $myline1[0] = q{};
            $myline1[5] = q{};
            $myline1[7]= q{};
            $mesg[0] = q{};
            $messby = 'N/A';
            $msgts = 0;
        }
        else {
            @myline1 = split /[|]/xsm, $ftotals[0];
            $msgtot = 0;
            $msgts = $myline1[8];
            for (@ftotals) {
                @totalsvars = split /[|]/xsm, $_;
                $msgtot += $totalsvars[5] + 1;
            }
            fopen ( TOTALSN, "<$datadir/$myline1[0].txt" );
            my @ftotalsn = <TOTALSN>;
            fclose(TOTALSN);
            @mesg =  split /[|]/xsm, $ftotalsn[-1];
            $messby = $myline1[6];
            if ( $messby eq 'Guest') {
                $messby = $myline1[2];
            }
        }
        push @newtots, qq~$key|$ftotals|$msgtot|$myline1[4]|$messby|$myline1[0]|$myline1[5]|$mesg[0]|$myline1[7]|$msgts\n~;
    }
    fopen ( NTOTALS, ">$boardsdir/forum.totals" );
    print {NTOTALS} @newtots;
    fclose(NTOTALS);